home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fxlaun / threadz.frm < prev    next >
Text File  |  1995-05-08  |  4KB  |  136 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "F/X Launcher"
  5.    ClientHeight    =   3135
  6.    ClientLeft      =   3015
  7.    ClientTop       =   1785
  8.    ClientWidth     =   2325
  9.    Height          =   3540
  10.    Icon            =   THREADZ.FRX:0000
  11.    Left            =   2955
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   3135
  16.    ScaleWidth      =   2325
  17.    Top             =   1440
  18.    Width           =   2445
  19.    Begin CommandButton Command4 
  20.       Caption         =   "Undelete"
  21.       Height          =   375
  22.       Left            =   1200
  23.       TabIndex        =   6
  24.       Top             =   2520
  25.       Width           =   975
  26.    End
  27.    Begin PictureBox Picture4 
  28.       BorderStyle     =   0  'None
  29.       Height          =   495
  30.       Left            =   240
  31.       Picture         =   THREADZ.FRX:0302
  32.       ScaleHeight     =   495
  33.       ScaleWidth      =   615
  34.       TabIndex        =   3
  35.       Top             =   2400
  36.       Width           =   615
  37.    End
  38.    Begin CommandButton Command3 
  39.       Caption         =   "Search"
  40.       Height          =   375
  41.       Left            =   1200
  42.       TabIndex        =   5
  43.       Top             =   1800
  44.       Width           =   975
  45.    End
  46.    Begin PictureBox Picture3 
  47.       BackColor       =   &H00FFFFFF&
  48.       BorderStyle     =   0  'None
  49.       Height          =   495
  50.       Left            =   240
  51.       Picture         =   THREADZ.FRX:05D4
  52.       ScaleHeight     =   495
  53.       ScaleWidth      =   615
  54.       TabIndex        =   2
  55.       Top             =   1680
  56.       Width           =   615
  57.    End
  58.    Begin CommandButton Command2 
  59.       Caption         =   "F/X Find"
  60.       Height          =   375
  61.       Left            =   1200
  62.       TabIndex        =   4
  63.       Top             =   1080
  64.       Width           =   975
  65.    End
  66.    Begin PictureBox Picture2 
  67.       BorderStyle     =   0  'None
  68.       Height          =   495
  69.       Left            =   240
  70.       Picture         =   THREADZ.FRX:090A
  71.       ScaleHeight     =   495
  72.       ScaleWidth      =   615
  73.       TabIndex        =   1
  74.       Top             =   960
  75.       Width           =   615
  76.    End
  77.    Begin CommandButton Command1 
  78.       Caption         =   "F/X File"
  79.       Height          =   375
  80.       Left            =   1200
  81.       TabIndex        =   7
  82.       Top             =   360
  83.       Width           =   975
  84.    End
  85.    Begin PictureBox Picture1 
  86.       BorderStyle     =   0  'None
  87.       Height          =   495
  88.       Left            =   240
  89.       Picture         =   THREADZ.FRX:0BA0
  90.       ScaleHeight     =   495
  91.       ScaleWidth      =   615
  92.       TabIndex        =   0
  93.       Top             =   240
  94.       Width           =   615
  95.    End
  96. End
  97. Sub Command1_Click ()
  98.     On Error Resume Next
  99.     If Shell("Fxfile.exe", 1) < 32 Then
  100.         Msg$ = "Unable To Launch" + Chr$(13) + UCase$("FxFile.exe")
  101.         MsgBox Msg$, 16, "ThreadZ"
  102.     End If
  103.     Form1.WindowState = 1
  104. End Sub
  105.  
  106. Sub Command2_Click ()
  107.     On Error Resume Next
  108.     If Shell("Fxfind.exe", 1) < 32 Then
  109.         Msg$ = "Unable To Launch" + Chr$(13) + UCase$("FxFind.exe")
  110.         MsgBox Msg$, 16, "ThreadZ"
  111.     End If
  112.     Form1.WindowState = 1
  113.  
  114. End Sub
  115.  
  116. Sub Command3_Click ()
  117.     On Error Resume Next
  118.     If Shell("Fxsearch.exe", 1) < 32 Then
  119.         Msg$ = "Unable To Launch" + Chr$(13) + UCase$("Fxsearch.exe")
  120.         MsgBox Msg$, 16, "ThreadZ"
  121.     End If
  122.     Form1.WindowState = 1
  123.  
  124. End Sub
  125.  
  126. Sub Command4_Click ()
  127.     On Error Resume Next
  128.     If Shell("Fxundel.exe", 1) < 32 Then
  129.         Msg$ = "Unable To Launch" + Chr$(13) + UCase$("Fxundel.exe")
  130.         MsgBox Msg$, 16, "ThreadZ"
  131.     End If
  132.     Form1.WindowState = 1
  133.  
  134. End Sub
  135.  
  136.